10 '** OISAC 2 ** DATE/JOUR **
20 DIM N$(12),NJ(12):FOR I=1TO12:READ N$(I),NJ(I):NEXT
30 CLS:INPUT"DATE JJ/MM : ",D$:J=VAL(LEFT$(D$,2)):M=VAL(RIGHT$(D$,2)):IFM>12ORM<1THENBEEP:GOTO30ELSEIFJ>NJ(M)THENBEEP:GOTO30
40 NJE=0:FORI=1TOM-1:NJE=NJE+NJ(I):NEXT:NJE=NJE+J
50 PRINT"LE"J;N$(M);" "NJE"JOURS":END
100 DATA JAN,31,FEV,29,MAR,31,AVR,30,MAI,31,JUN,30,JUL,31,AOU,31,SEP,30,OCT,31,NOV,30,DEC,31